100 REM *****************************
110 REM ****  DISK MENU SEQUENCE ****
120 REM *****************************
130 REM
140 DIM F1$(105)
150 DIM F2$(105)
160 DIM F3%(105)
170 DIM MC$(20)
180 DIM M1$(20)
190 DIM M2$(20)
200 DIM M3%(20)
210 DIM MX$(20)
220 CT%=0
230 GOSUB500 
240 REM
250 GOSUB310 
260 GOTO1310  
270 REM
280 REM **  **  **  **  **  **  ** **
290 REM          BORDER ROUTINE
300 REM **  **  **  **  **  **  ** **
310 PRINT"[147][158]";CHR$(142)CHR$(8);:POKE53280,14:POKE53281,0
320 FORI=1TO38:PRINT"[166][146]";:NEXT
330 FORI=1TO22:PRINT"[157][166][146]";:NEXT
340 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
350 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
360 RETURN
370 REM
380 REM **  **  **  **  **  **  ** **
390 REM        CLEAR LIST ROUTINE
400 REM **  **  **  **  **  **  ** **
410 PRINT "[147]     I AM WORKING"
420 FOR I=1TO105
430 F1$(I)="ZZZ":F2$(I)="Z":F3%(I)=0
440 NEXT I
450 RETURN
460 REM
470 REM **  **  **  **  **  **  ** **
480 REM        CLEAR MENU ROUTINE
490 REM **  **  **  **  **  **  ** **
500 FOR I=1TO20
510 MC$(I)="Z":M1$(I)="ZZZ"
520 M2$(I)="X":M3%(I)=0
530 NEXT I
540 CT%=0
550 RETURN
560 REM **  **  **  **  **  **  ** **
570 REM        READ GROUP IN
580 REM **  **  **  **  **  **  ** **
590 PRINT "[147]   PLEASE WAIT !!!!!"
600 PRINT "[158]READING ";NF$;"[158] FROM DISK"
610 OPEN15,8,15,"IO"
620 GOSUB1030 
630 OPEN5,8,5,"0:"+NF$+",SEQ,R"
640 GOSUB1030 
650 IF EN=62 THEN RETURN
660 FOR I=1 TO 105
670 INPUT#5,F1$(I)
680 GOSUB1030 
690 IF F1$(I)="ZZZ" THEN GOTO750 
700 INPUT#5,F2$(I)
710 GOSUB1030 
720 INPUT#5,F3%(I)
730 GOSUB1030 
740 NEXT I
750 CLOSE5:CLOSE15
760 RETURN
770 REM
780 REM **  **  **  **  **  **  ** **
790 REM        WRITE GROUP TO DISK
800 REM **  **  **  **  **  **  ** **
810 PRINT "[147]   PLEASE WAIT !!!!!"
820 PRINT "WRITING ";NF$;" TO DISK"
830 OPEN15,8,15,"IO"
840 GOSUB1030 
850 OPEN5,8,5,"@0:"+NF$+",SEQ,W"
860 GOSUB1030 
870 FOR I=1 TO 105
880 PRINT#5,F1$(I)
890 GOSUB1030 
900 PRINT#5,F2$(I)
910 GOSUB1030 
920 PRINT#5,F3%(I)
930 GOSUB1030 
940 IF F1$="ZZZ" THEN GOTO960 
950 NEXT I
960 CLOSE5:CLOSE15
970 CT%=0
980 RETURN
990 REM
1000 REM **  **  **  **  **  **  **  **
1010 REM         ERROR READ ROUTINE
1020 REM **  **  **  **  **  **  ** **
1030 INPUT#15,EN,EM$,ET,ES
1040 IF EN=0 THEN RETURN
1050 IF EN=62 THEN GOTO1130 
1060 PRINT "";EM$
1070 PRINT " SEE YOUR DRIVE MANUAL FOR THE SPECFIC "
1080 PRINT " ERROR CONDITION FOR NUMBER [158]";EN
1090 CLOSE5:CLOSE15
1100 TI$ ="000000"
1110 IF TI$ < "000008" THEN GOTO1110  
1120 GOTO230 
1130 PRINT " FILE NOT STARTED "
1140 PRINT "  PLEASE ENTER DATA ON NEXT SCREEN "
1150 TI$ ="000000"
1160 IF TI$ < "000008" THEN GOTO1160  
1170 CLOSE5:CLOSE15
1180 RETURN
1190 REM
1200 :
1210 OPEN15,4,15:CLOSE15:IF(ST=.)THEN1218
1212 PRINT"          [150]PRINTER NOT ONLINE![145]"
1214 FORA=1TO55:POKE54296,15:POKE54296,.:NEXT
1216 PRINT"                                 [145]":RETURN
1218 PRINT"        [154]PRINTING -- PLEASE WAIT.[145]"
1219 OPEN1,3:OPEN2,4,7:PRINT#1,CHR$(19);
1220 FOR M=1 TO 23:A$="             "
1230 FORL=1TO40:GET#1,B$:A$=A$+B$:NEXT
1240 R$=CHR$(13):IF B$=R$ THEN1260 
1250 PRINT#2,A$:NEXT M:GOTO1270 
1260 PRINT#2,A$;:NEXT M
1270 PRINT#2:CLOSE 2:PRINT#1:CLOSE 1
1275 PRINT"                                 [145]"
1280 RETURN
1290 REM
1300 REM **  **  **  **  **  **  ** **
1310 PRINT""
1320 PRINTTAB(16)"LOADSTAR"
1330 PRINTTAB(16)"PRESENTS"
1340 PRINT"  CALORIE   "
1350 PRINT"  SELECTOR    "
1360 PRINT"       PROGRAM"
1370 PRINT"[158]    BY"
1380 PRINT"   RICHARD MELANSON"
1390 PRINT"    COPYRIGHT 1987"
1400 TI$ ="000000"
1410 IF TI$ < "000002" THEN GOTO1410
1420 REM
1430 REM **  **  **  **  **  **  **  **
1440 GOSUB310 
1450 PRINT"[158]                      "
1460 PRINT"   CALORIE SELECTOR   "
1470 PRINT"[158]                      "
1480 PRINT"  FUNCTION SELECTION  "
1490 PRINT"[158]F.  FOOD FILES[158]"
1500 PRINT"     ADD,CHANGE,OR[160]REVIEW"
1510 PRINT"     YOUR FOOD FILES"
1520 PRINT"     MAKE SELECTIONS"
1530 PRINT"     FOR A DAILY MEAL MENU"
1540 PRINT"M.  MENU REVIEW[158]"
1550 PRINT"     REVIEW, OR SAVE THE"
1560 PRINT"     CURRENT WORK MENU"
1570 PRINT"G.  GENERAL[160]INFORMATION[158]"
1580 PRINT"Q.  QUIT[158] PROGRAM"
1590 PRINT"[145][159]INPUT FUNCTION LETTER"
1600 RP$="":POKE198,.
1610 GET RP$:IF RP$=""THEN GOTO1610  
1620 IF RP$ ="F" THEN GOTO1800  
1630 IF RP$ ="M" THEN GOTO3970  
1640 IF RP$ ="3" THEN GOTO1710  
1650 IF RP$ ="4" THEN GOTO1710  
1660 IF RP$ ="5" THEN GOTO1710  
1670 IF RP$ ="6" THEN GOTO1710  
1680 IF RP$ ="G" THEN GOTO4900  
1690 IF RP$ ="Q" THEN1745
1700 REM **  **  **  **  **  **  **  **
1710 PRINT"[145]     NOT DEFINED     "
1720 TI$ ="000000"
1730 IF TI$ < "000001" THEN GOTO1730
1740 GOTO1450  
1745 PRINT"[147]     ARE YOU ABSOLUTELY, POSITIVELY"
1746 PRINT"      SURE YOU WANT TO QUIT? (Y[159]/N[159])"
1747 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1747
1748 IFA$="N"THEN1440
1750 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1760 IFER<>63THENEND
1770 POKE.,47:LOAD"HELLO CONNECT",8
1780 REM
1790 REM **  **  **  **  **  **  **  **
1800 GOSUB310 
1810 PRINT"[158]                      "
1820 PRINT"   CALORIE SELECTOR   "
1830 PRINT"[158]        FOOD          "
1840 PRINT"   GROUP SELECTION    "
1850 PRINT"1. [158]STARCH GROUPS"
1860 PRINT"2. [158]PROTEIN ITEMS"
1870 PRINT"3. [158]FRUIT ITEMS"
1880 PRINT"4. [158]VEGETABLES"
1890 PRINT"5. [158]FAST FOODS"
1900 PRINT"6. [158]FAT ITEMS"
1910 PRINT"7. [158]FREE ITEMS"
1920 PRINT"8. [158]MIXED FOODS"
1930 PRINT"G. GENERAL INFORMATION"
1940 PRINT"R. BACK TO FUNCTION SCREEN"
1950 PRINT"[145][159]INPUT GROUP NUMBER"
1960 RP$=""
1970 GET RP$:IF RP$=""THEN GOTO1970  
1980 IF RP$ ="1" THEN GOTO2150  
1990 IF RP$ ="2" THEN GOTO2560  
2000 IF RP$ ="3" THEN GOTO2570  
2010 IF RP$ ="4" THEN GOTO2580  
2020 IF RP$ ="5" THEN GOTO2590  
2030 IF RP$ ="6" THEN GOTO2600  
2040 IF RP$ ="7" THEN GOTO2610  
2050 IF RP$ ="8" THEN GOTO2620  
2060 IF RP$ ="R" THEN GOTO1440  
2070 IF RP$ ="G" THEN GOTO4900  
2080 REM **  **  **  **  **  **  **  **
2090 PRINT"[145] NOT DEFINED "
2100 TI$ ="000000"
2110 IF TI$ < "000002" THEN GOTO2110  
2120 GOTO1810  
2130 REM
2140 REM **  **  **  **  **  **  **  **
2150 GOSUB310 
2160 PRINT"[158]                      "
2170 PRINT"   CALORIE SELECTOR   "
2180 PRINT"[158]        FOOD          "
2190 PRINT"   STARCH SELECTION   "
2200 PRINT"1. [158]BREADS"
2210 PRINT"2. [158]CEREALS"
2220 PRINT"3. [158]PASTAS"
2230 PRINT"4. [158]COOKIES"
2240 PRINT"5. [158]DESERTS"
2250 PRINT"6. [158]CRACKERS"
2260 PRINT"7. [158]VEGETABLES"
2270 PRINT"Q. BACK TO GROUP SELECTION"
2280 PRINT""
2290 PRINT""
2300 PRINT"[145][159]INPUT STARCH NUMBER"
2310 RP$=""
2320 GET RP$:IF RP$=""THEN GOTO2320  
2330 IF RP$ ="1" THEN GOTO2490  
2340 IF RP$ ="2" THEN GOTO2500  
2350 IF RP$ ="3" THEN GOTO2510  
2360 IF RP$ ="4" THEN GOTO2520  
2370 IF RP$ ="5" THEN GOTO2530  
2380 IF RP$ ="6" THEN GOTO2540  
2390 IF RP$ ="7" THEN GOTO2550  
2400 IF RP$ ="Q" THEN1800
2410 REM **  **  **  **  **  **  **  **
2420 PRINT"[145] NOT DEFINED "
2430 TI$ ="000000"
2440 IF TI$ < "000002" THEN GOTO2440  
2450 GOTO2160 
2460 REM
2470 REM **  **  **  **  **  **  **  **
2480 REM
2490 NF$="BREADS":GOTO2650 
2500 NF$="CEREALS":GOTO2650 
2510 NF$="PASTA":GOTO2650 
2520 NF$="COOKIES":GOTO2650 
2530 NF$="DESSERT":GOTO2650 
2540 NF$="CRACKERS":GOTO2650 
2550 NF$="STCH-VEGET":GOTO2650 
2560 NF$="PROTEIN":GOTO2650 
2570 NF$="FRUIT":GOTO2650 
2580 NF$="VEGETABLE":GOTO2650 
2590 NF$="FAST-FOODS":GOTO2650 
2600 NF$="FAT-ITEMS":GOTO2650 
2610 NF$="FREE-ITEMS":GOTO2650 
2620 NF$="MIXED-FOODS":GOTO2650 
2630 REM
2640 REM **  **  **  **  **  **  **  **
2650 GOSUB410 :REM CLEAR WORK
2660 GOSUB590 :REM READ FILE IN
2670 PRINT "[147][158]";TAB(14);"FOOD GROUP"
2680 PRINT TAB(16)"";NF$;"[158]"
2690 PRINT "#       ITEM           MEASURE CALORIES"
2700 FOR I=1 TO 105
2710 PRINT "                                       "
2720 PRINT "[145]";I;TAB(6)F1$(I);TAB(26)F2$(I);TAB(33)F3%(I)
2730 IF I=15 THEN GOTO2820 
2740 IF I=30 THEN GOTO2820 
2750 IF I=45 THEN GOTO2820 
2760 IF I=60 THEN GOTO2820 
2770 IF I=75 THEN GOTO2820 
2780 IF I=90 THEN GOTO2820 
2790 IF I=105 THEN GOTO2820 
2800 IF I < 1 THEN GOTO2670 
2810 NEXT I
2820 PRINT "                          "
2830 PRINT "ENTER C[158]ONT B[158]ACK E[158]DIT Q[158]UIT P[158]RINT S[158]ELECT"
2840 RP$=""
2850 GET RP$:IF RP$="" THEN GOTO2850 
2860 IF RP$="B" THEN PRINT "":I=I-30:GOTO2800 
2870 IF RP$="C"AND I>104 THEN GOTO2670 
2880 IF RP$="C" THEN PRINT "":GOTO2810
2890 IF RP$="E" THEN GOTO2950 
2900 IF RP$="P" THEN GOSUB1210 
2910 IF RP$="S" THEN GOTO3480 
2920 IF RP$="Q" THEN3260
2930 GOTO2840 
2940 REM **  **  **  **  **  **  **  **
2950 R$="X":RP$=""
2960 PRINT "[145]                                      "
2970 PRINT"[145] INPUT NUMBER TO CHANGE";:LG=2:GOSUB60040
2980 IF RP$="Q" THEN2670
2990 NE%=VAL(RP$)
3000 IF NE% < 1 THEN GOTO2950 
3010 IF NE% > I THEN GOTO2950 
3020 IF NE% > 105 THEN GOTO2950 
3030 PRINT "[145]                                      ":RP$=""
3040 PRINT "[145]  INPUT DESCRIPTION  ";:LG=14:GOSUB60040
3050 IF RP$="Q" THEN2670
3060 IF LEN(RP$)=0 THEN F1$(NE%)="ZZZ":F2$(NE%)="Z":F3%(NE%)=0:GOTO3230 
3070 IFRP$<"A"ORRP$>"Z"THEN3030
3080 F1$(NE%)=RP$
3090 PRINT "[145]                                      ":RP$=""
3100 PRINT "[145]  INPUT MEASURE  ";:LG=6:GOSUB60040
3110 IFRP$="Q" THEN2670
3120 IFRP$<"0"ORRP$>"9"THEN3090
3130 IF LEN(RP$) < 1 THEN GOTO3100 
3140 F2$(NE%)=RP$
3150 PRINT "[145]                                      ":RP$=""
3160 PRINT "[145]  INPUT CALORIES  ";:LG=4:GOSUB60040
3170 IFRP$="Q" THEN2670
3180 IFRP$<"0"ORRP$>"9"THEN3150
3190 IF LEN(RP$) < 1 THEN GOTO3160 
3200 AA%=VAL(RP$)
3210 IF AA% > 700 THEN GOTO3150 
3220 F3%(NE%)=AA%
3230 PRINT "":I=I-14:GOTO2710 
3240 REM
3250 REM **  **  **  **  **  **  **  **
3260 IF R$="X"THEN GOSUB3320 :GOSUB810 
3270 R$=""
3280 GOTO1800 
3290 REM
3300 REM **  **  **  **  **  **  **  **
3310 REM THIS IS THE ACTUAL SORT
3320 PRINT "[147] CHANGES MADE TO LIST"
3330 PRINT "  SORTING ALPHA BY ITEM "
3340 M=1:X=105
3350 REM
3360 T=0:FOR I=1 TO X - M
3370 IF F1$(I) < F1$(I+1) THEN3420 
3380 IF F1$(I) = F1$(I+1) THEN3420 
3390 W$=F1$(I):F1$(I)=F1$(I+1):F1$(I+1)=W$
3400 W$=F2$(I):F2$(I)=F2$(I+1):F2$(I+1)=W$
3410 W%=F3%(I):F3%(I)=F3%(I+1):F3%(I+1)=W%:T=1
3420 NEXT I
3430 M = M + 1
3440 IF T<> 0 THEN GOTO3360 
3450 RETURN
3460 REM
3470 REM *************************
3480 RP$=""
3490 PRINT "[145]                                       "
3500 PRINT "[145]ENTER C[159]ONT Q[159]UIT OR [159]SELECT #[158] ";:LG=2:GOSUB60040
3510 IF RP$="C"THEN PRINT"":GOTO2810
3520 IF RP$="Q"THEN2670
3530 NE%=VAL(RP$)
3540 IF NE% < 1 THEN GOTO3490 
3550 IF NE% > I THEN GOTO3490 
3560 IF NE% > 105 THEN GOTO3490 
3570 ML$=""
3580 PRINT "[145]                                       "
3590 PRINT "[145]  WHAT MEAL   B - L - D - S  ";:LG=1:GOSUB60040:ML$=RP$
3600 IF ML$="B" THEN GOTO3650 
3610 IF ML$="L" THEN GOTO3660 
3620 IF ML$="D" THEN GOTO3670 
3630 IF ML$="S" THEN GOTO3680 
3640 GOTO3570 
3650 ML$="1":GOTO3690 
3660 ML$="2":GOTO3690 
3670 ML$="3":GOTO3690 
3680 ML$="4"
3690 CT%=CT%+1
3700 IF CT% >20 THEN GOTO3760 
3710 MC$(CT%)=ML$
3720 M1$(CT%)=F1$(NE%)
3730 M2$(CT%)=F2$(NE%)
3740 M3%(CT%)=F3%(NE%)
3750 GOTO3480 
3760 PRINT "[147] ONLY ALLOWED 20 ITEMS ON MENU"
3770 TI$ ="000000"
3780 IF TI$ < "000003" THEN GOTO3780  
3790 GOTO1440 
3800 REM **  **  **  **  **  **  **  **
3810 PRINT "[147] SELECTION MADE TO MENU"
3820 PRINT "  SORTING BY MEAL  "
3830 M=1:X=20
3840 REM
3850 T=0:FOR I=1 TO X - M
3860 IF MC$(I) < MC$(I+1) THEN3920 
3870 IF MC$(I) = MC$(I+1) THEN3920 
3880 W$=MC$(I):MC$(I)=MC$(I+1):MC$(I+1)=W$
3890 W$=M1$(I):M1$(I)=M1$(I+1):M1$(I+1)=W$
3900 W$=M2$(I):M2$(I)=M2$(I+1):M2$(I+1)=W$
3910 W%=M3%(I):M3%(I)=M3%(I+1):M3%(I+1)=W%:T=1
3920 NEXT I
3930 M = M + 1
3940 IF T<> 0 THEN GOTO3850 
3950 RETURN
3960 REM **  **  **  **  **  **  **  **
3970 GOSUB310 
3980 PRINT"[158]                      "
3990 PRINT"   CALORIE SELECTOR   "
4000 PRINT"[158]                      "
4010 PRINT"    MENU PROCESSING   "
4020 PRINT"[158]A.  CURRENT WORK MENU"
4030 PRINT"B.  PREVIOUS MENUS"
4040 PRINT"C.  START NEW WORK MENU"
4050 PRINT"    (WILL CLEAR WORK MENU)[158]"
4060 PRINT"D.  DIRECTORY OF FILES"
4070 PRINT"R.  RETURN TO FUNCTION SCREEN"
4080 PRINT"[145][159]INPUT PROCESS LETTER"
4090 RP$=""
4100 GET RP$:IF RP$=""THEN GOTO4100  
4110 IF RP$ ="A" THEN GOTO4210  
4120 IF RP$ ="B" THEN GOTO4750  
4130 IF RP$="C"THEN GOSUB500 :GOTO1800 
4140 IF RP$="D"THEN GOSUB5590 :GOTO3970 
4150 IF RP$ ="R" THEN GOTO1440  
4160 REM **  **  **  **  **  **  **  **
4170 PRINT"[145] NOT DEFINED "
4180 TI$ ="000000"
4190 IF TI$ < "000002" THEN GOTO4190  
4200 GOTO4080  
4210 GOSUB3810 
4220 PRINT "[147]";TAB(15)"WORK - MENU[158]"
4230 FOR I=1TO20
4240 IF MC$(I)="1"THEN MX$(I)="BRKFST"
4250 IF MC$(I)="2"THEN MX$(I)="LUNCH "
4260 IF MC$(I)="3"THEN MX$(I)="DINNER"
4270 IF MC$(I)="4"THEN MX$(I)="SNACK "
4280 NEXT I
4290 TC%=0
4300 FOR I=1  TO 20
4310 IF MC$(I)="Z" THEN GOTO4340 
4320 PRINT MX$(I);"  ";M1$(I);TAB(25)M2$(I);TAB(32)M3%(I)
4330 TC%=TC%+M3%(I)
4340 NEXT I
4345 IFTC%=0THENPRINT"             NOTHING ON MENU[158]":GOTO4360
4350 PRINT TAB(25)"TOTAL";TC%
4360 PRINT "[158] ENTER P[158]RINT C[158]ONT S[158]AVE"
4370 RP$=""
4380 GET RP$:IF RP$="" THEN GOTO4380 
4390 IF RP$="C" THEN GOTO3970
4400 IF RP$="P"THENGOSUB1210:GOTO3970 
4410 IF RP$="S" THEN GOTO4440 
4420 GOTO4370 
4430 REM **  **  **  **  **  **  **  **
4440 PRINT "[147] INPUT Q[158] TO SKIP SAVING THIS MENU"
4450 NM$=""
4460 PRINT "SAVE THE MENU"
4470 PRINT " NAME ? [159]";:LG=15:GOSUB60040:NM$=RP$
4480 IF NM$="Q" THEN GOTO4580
4490 OPEN15,8,15,"IO"
4500 GOSUB4590 
4510 OPEN5,8,5,"0:"+NM$+",SEQ,W"
4520 GOSUB4590 
4530 FOR I=1TO20
4540 PRINT#5,MC$(I):PRINT#5,M1$(I)
4550 PRINT#5,M2$(I):PRINT#5,M3%(I)
4560 NEXT I
4570 CLOSE5:CLOSE15
4580 GOTO3970 
4590 INPUT#15,EN,EM$,ET,ES
4600 IF EN=0 THEN RETURN
4610 IF EN=62 THEN GOTO4690 
4620 IF EN=63 THEN GOTO4650 
4630 PRINT " ERROR ";EN;EM$;ET;ES
4640 CLOSE5:CLOSE15:END
4650 PRINT " FILE EXISTS"
4660 TI$ ="000000"
4670 IF TI$ < "000003" THEN GOTO4670 
4680 GOTO4570 
4690 PRINT " FILE NOT FOUND"
4700 TI$ ="000000"
4710 IF TI$ < "000003" THEN GOTO4710 
4720 CLOSE5:CLOSE15
4730 GOTO3970 
4740 REM **  **  **  **  **  **  **  **
4750 PRINT "[147] "
4760 GOSUB500 
4770 NM$=""
4775 PRINT" LOAD A MENU"
4777 PRINT"THIS WILL CLEAR THE CURRENT WORK MENU"
4778 PRINT"PRESS RETURN[146] WITHOUT ENTERING ANYTHING"
4779 PRINT"TO GO BACK AND KEEP CURRENT WORK MENU."
4780 PRINT "NAME OF MENU? ";:LG=15:GOSUB60040:NM$=RP$
4800 OPEN15,8,15,"IO"
4810 GOSUB4590 
4820 OPEN5,8,5,"0:"+NM$+",SEQ,R"
4830 GOSUB4590 
4840 FOR I=1TO20
4850 INPUT#5,MC$(I):INPUT#5,M1$(I)
4860 INPUT#5,M2$(I):INPUT#5,M3%(I)
4870 NEXT I
4880 CLOSE5:CLOSE15
4890 GOTO4220 
4900 PRINTCHR$(9)CHR$(14):PRINT "[147][158]        [199]ENERAL [201]NFORMATION"
4910 PRINT "[158]   [212]HIS PROGRAM WILL MAINTAIN UP TO 105"
4920 PRINT "FOOD ITEMS WITHIN EACH TYPE GROUP."
4930 PRINT "   [217]OU MAY CHANGE OR DELETE FOOD ITEMS "
4940 PRINT "AS YOUR TASTE MAY DICTATE. [213]SE THE [197][158]DIT"
4950 PRINT "INSTRUCTION THEN TYPE INFORMATION AS "
4960 PRINT "REQUESTED. [206]O DESCRIPTION ENTERED"
4970 PRINT "WILL MOVE ZZZ TO DESCRIPTION FOR SORT."
4975 PRINT "   [209][158] WILL RETURN YOU TO MAIN MENU OR"
4980 PRINT "PREVIOUS SCREEN. [193]NY CHANGE AND THE"
4990 PRINT "SYSTEM WILL SORT AND REWRITE TO DISK."
5000 PRINT "   [217]OU CREATE A WORK MENU FROM THESE"
5010 PRINT "FOOD TYPES. [211][158]ELECT THE NUMBER OF THE"
5020 PRINT "ITEM YOU WANT AND WHAT MEAL, [194][158]REAKFAST"
5030 PRINT "[204][158]UNCH, [196][158]INNER, OR [211][158]NACK. [212]HE SYSTEM"
5040 PRINT "WILL BUILD YOUR WORK MENU, THEN YOU "
5050 PRINT "[211][158]AVE THE WORK MENU WITH A NEW NAME"
5060 PRINT "FOR USE OR PRINTING AT A LATER DATE."
5070 PRINT ""
5080 RP$=""
5090 PRINT " [158][208]RESS [211][208][193][195][197][146] [158]TO CONTINUE  [208][158] TO PRINT"
5100 GETA$:IFA$=""THEN5100
5110 IFA$=CHR$(32) THEN5150
5120 IFA$="P" THEN GOSUB1210
5130 PRINT "[145][145]"
5140 GOTO5080
5150 PRINT "[147][211]PECIFIC [198]UNCTIONS[158]"
5160 PRINT "    [212]O EXECUTE PHASES ENTER THE FIRST"
5170 PRINT "LETTER OR NUMBER SHOWN THEN [[210][197][212][213][210][206]]
5180 [153] " STR$RIGHT$(null)(null)(null)ATN(null)  VAL(null)(null)VAL(null)        ATNLEN(null)RIGHT$(null)(null)"
5190 [153] " SYSLEN(null)(null)(null)       LEN    LENONTINUES LISTING"
5200 [153] " PEEKATNLEN(null)       PEEK    (null)CROLLS BACK"
5210 [153] " VALSTR$RIGHT$(null)       VAL    (null)OADS EDIT SCREEN FOR"
5220 [153] "                 MAINTENANCE ON ITEM"
5230 [153] " (null)(null)RIGHT$(null)       (null)    (null)TOPS AND BACKS UP"
5240 [153] "                 FOR ANOTHER SELECTION"
5250 [153] " (null)(null)RIGHT$(null)(null)      (null)    (null)RINTS SCREEN"
5260 [153] " (null)VAL(null)VALLEN(null)     (null)    CHR$OES TO SELECT SCREEN"
5270 [153] "                 WHERE YOU BUILD YOUR"
5275 [153] "                 WORK MENU"
5280 [153] "   #       99    (null)ELECTS FOOD THEN"
5290 [153] "                 ASKS WHICH MEAL"
5300 [153] "      PEEK=OPENPEEKREAKFAST     (null)=OPEN(null)UNCH"
5310 [153] "      STR$=OPENSTR$INNER        (null)=OPEN(null)NACKSYS"
5320 [153] " (null)ATN(null)VAL       (null)    (null)AVES THE MENU"
5340 [153] " (null)RESS (null)(null)ATNLENVALWAIT SYSTO CONTINUE  (null)SYS TO PRINT"
5350 [161]A$:[139]A$[178]""[167]5350
5360 [139]A$[178][199](32) [167]5400
5370 [139]A$[178]"P" [167] [141]1210
5390 [137]5350
5400 [153] "LOADSYS           (null)ENU RIGHT$NFORMATION"
5410 [153] "SYS   (null)O SAVE, PRINT, OR REVIEW THE"
5420 [153] " WORK MENU OR PREVIOUS MENUS YOU WILL"
5430 [153] " HAVE TO RETURN TO THE FIRST SCREEN,"
5435 [153] " AND SELECT (null)SYS FOR MENU PROCESSING."
5440 [153] "  (null)HIS ALSO WILL ALLOW YOU TO START"
5450 [153] " NEW MENUS AND SEE THE FILES ON DISK."
5455 [153] " ATNLSO, IF YOU PROGRAM, YOU COULD INSERT"
5457 [153] " INSTRUCTIONS AT ABOUT LINE 1600 FOR"
5458 [153] " SOME OTHER FUNCTIONS YOU MAY WANT."
5460 [153] "                                  "
5470 [153] " (null)RESS (null)(null)ATNLENVALWAIT SYSTO CONTINUE  (null)SYS TO PRINT"
5480 RP$[178]""
5500 [161]A$:[139]A$[178]""[167]5500
5510 [139]A$[178][199](32) [167]1440
5520 [139]A$[178]"P" [167] [141]1210
5540 [137]5500
5550 [143]
5560 [143] *****************************
5570 [143]    DIRECTORY LISTING PROG
5580 [143] *****************************
5590 [153] "LOAD  READING DIRECTORY"
5600 [159]15,8,15,"IO"
5610 [159]1,8,2,"$"
5620 [129] X[178]1[164]141:[161]#1,A$:[130]
5630 T$(0)[178]"DEL":T$(1)[178]"SEQ":T$(2)[178]"PRG":T$(3)[178]"USR":T$(4)[178]"REL"
5640 J[178]17:[141]5900 
5650 N$[178]B$
5660 J[178]2
5670 [141]5900 
5680 I$[178]B$
5690 [161]#1,A$
5700 J[178]2
5710 [141]5900 
5720 O$[178]B$
5730 [129]  L[178]1[164]88
5740 [161]#1,A$
5750 [130]
5760 [153] [199](147)"DISK NAME:"N$,"ID:"I$,"OS:"O$
5770 [153] "LENGTH","TYPE","NAME"
5780 [129] P[178]1[164]8
5790 [161]#1,T$,A$,A$
5800 [139] T$[178]"" [167] T$[178][199](128)
5810 J[178]15
5820 [141]5900 
5830 N$[178]B$
5840 [161]#1,A$,A$,A$,A$,A$,A$,A$,A$,A$,L$,H$
5850 L[178][198](L$[170][199](0))[170]256[172][198](H$[170][199](0)):[139] L[178]0 [167]5890 
5860 [139] ST [167] [160]1:[160]15:[137]5960
5870 [153] L,T$([198](T$)[171]128),N$
5880 [139] P[179]8 [167] [161]#1,A$,A$
5890 [130] P:[137]5780 
5900 B$[178]""
5910 [129] L[178]0[164]J
5920 [161]#1,A$
5930 [139] A$[179][177][199](96) [167] [139] A$[179][177][199](160)[167] B$[178]B$[170]A$
5940 [130]
5950 [142]
5960 RP$[178]""
5970 [153] "HIT A KEY TO CONTINUE"
5980 [161] RP$
5990 [139] RP$[178]"" [167] [137]5980  
6000 [142]
60040 K$[178]"":TE[178][194](646):[153]" - SYS";:[151]198,0.
60041 [153]" CMDWAIT";:[129]T[178]1[164]50:[130]:[153]" CMDSYS";
60042 [161]A$:[139]A$[178]""[167]60041
60044 [139]A$[178][199](13)[167][153]:[151]646,TE:RP$[178]K$:[142]
60045 [139]A$[178][199](20)[175][195](K$)[167][153]"CMD CMD";:K$[178][200](K$,[195](K$)[171]1):[137]60041
60046 [139][195](K$)[178]LG[167]60041
60047 [139](A$[177][178]"0"[175]A$[179][178]"9")[176](A$[177][178]"A"[175]A$[179][178]"Z")[167][153]A$;:K$[178]K$[170]A$
60048 [139]A$[178]"-"[176]A$[178]"*"[176]A$[178]" "[176]A$[178]"."[167][153]A$;:K$[178]K$[170]A$
60049 [137]60041